home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / boot / sdate10_src.lha / StartupDate.e
Text File  |  1999-01-23  |  2KB  |  72 lines
  1. /* This is the source code file for my program StartupDate which
  2. allows you to set the date on startup. It can be compiled with the
  3. Amiga E compiler using the standard options - no extra files are
  4. needed. To see instructions for the program see the readme and
  5. AmigaGuide files in the binary archive. 
  6.  
  7. This code has been release as open-source. You can modify it and
  8. recompile it as you wish. I may upgrade this software in the future
  9. but I hold now claims over modified versions resulting from this
  10. source code. 
  11.  
  12. This program is rather basic but feel free to change it how you see
  13. fit.
  14.  
  15. Jonathan Combe 23/1/99
  16.  
  17. */
  18.  
  19. /* Set up variables */
  20.  
  21. DEF usdate[10] : STRING    /* Stores the user entered date */
  22. DEF ustime[10] : STRING    /* Stores the user entered time */
  23. DEF outstring[30] : STRING /* Stores the string which is output to the date command */
  24. DEF fh                     /* File handler */
  25.  
  26. /* Main function */
  27.  
  28. PROC main()
  29.   getinput()
  30.   makestring()
  31.   setdate()
  32.   displaydate()
  33. ENDPROC
  34.  
  35. /* Gets user input - NO error checking */
  36.  
  37. PROC getinput()
  38.   WriteF('StartupDate V1.0 ©1997 Jonathan Combe\n')
  39.   WriteF('\n')
  40.   WriteF('Please enter todays date in the from DD-Mth-YY, E.G. 15-Jun-97\n')
  41.   fh:=IF stdin THEN stdin ELSE stdout
  42.   ReadStr(fh,usdate)
  43.   WriteF('Please enter the current in time in the form HH:MM:SS\n')
  44.   WriteF('Please use the 24 hour clock.\n')
  45.   fh:=IF stdin THEN stdin ELSE stdout
  46.   ReadStr(fh,ustime)
  47. ENDPROC
  48.  
  49. /* Make up a suitable string for passing to the AmigaDos date command
  50. from the users input */
  51.  
  52. PROC makestring()
  53.   StrCopy(outstring,'Date ',ALL)
  54.   StrAdd(outstring,usdate,ALL)
  55.   StrAdd(outstring,' ',ALL)
  56.   StrAdd(outstring,ustime,ALL)
  57. ENDPROC
  58.  
  59. /* Set the date by calling the AmigaDos date command with the string */
  60.  
  61. PROC setdate()
  62.   Execute (outstring,0,0)
  63. ENDPROC
  64.  
  65. /* Execute the date command once more to display the new date - useful
  66. for user verification */
  67.  
  68. PROC displaydate()
  69.   WriteF('\n')
  70.   Execute ('Date',0,0)
  71. ENDPROC
  72.